﻿! name: opening dashed line 24.04.1989.
! intrenal macro: -

pars width, height

addx a          !------mirror

let t=sqr(a*a+b*b/4)
let k=int(t/0.15)
let n=t/(3*k-1)

if n<=0 then 10

let p=atn(b/2/a)

rotz (180-p)    !------mirror
for i=0 to 3*k-3 step 3

lin_ i*n,0,0,(2+i)*n,0,0
next i

addx t
rotz -2*(90-p)      !------mirror

for i=0 to 3*k-3 step 3

lin_ i*n,0,0,(2+i)*n,0,0
next i
del top
10: end


